#!/usr/bin/perl -w
print "Enter width of column";
chomp ($width = <STDIN>);
print "Enter lines \n";
@array = (1..9,0);
print @array, @array, @array, "\n";
chomp (@lines = <STDIN>);
foreach (@lines) {
printf "%${width}s\n", $_ ,"\n";
}

